From ebf0b439d599bab7c884c62b99bd1048cefe9ca7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Apr 1994 08:15:18 +0000 Subject: [PATCH] (compilation-setup, compilation-sentinel): Remove space after `:' in mode-line-process. --- lisp/progmodes/compile.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index cc7e0b6fb28..2ec9edae9e9 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -413,7 +413,7 @@ Runs `compilation-mode-hook' with `run-hooks' (which see)." ;; Prepare the buffer for the compilation parsing commands to work. (defun compilation-setup () ;; Make the buffer's mode line show process state. - (setq mode-line-process '(": %s")) + (setq mode-line-process '(":%s")) (set (make-local-variable 'compilation-error-list) nil) (set (make-local-variable 'compilation-old-error-list) nil) (set (make-local-variable 'compilation-parsing-end) 1) @@ -474,7 +474,7 @@ See `compilation-mode'." (insert " at " (substring (current-time-string) 0 19)) (forward-char 1) (setq mode-line-process - (concat ": " + (concat ":" (symbol-name (process-status proc)))) ;; Since the buffer and mode line will show that the ;; process is dead, we can delete it now. Otherwise it -- 2.30.2